home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue68 / Clinic / OneToManyServerDMU.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2001-01-31  |  1.1 KB  |  46 lines
  1. unit OneToManyServerDMU;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, ComServ, ComObj, VCLCom, DataBkr,
  7.   DBClient, OneToManyServer_TLB, StdVcl, Provider, Db, DBTables;
  8.  
  9. type
  10.   TCustomerData = class(TRemoteDataModule, ICustomerData)
  11.     tblCustomer: TTable;
  12.     tblOrders: TTable;
  13.     dsCustomer: TDataSource;
  14.     dspCustomer: TDataSetProvider;
  15.   private
  16.     { Private declarations }
  17.   protected
  18.     class procedure UpdateRegistry(Register: Boolean; const ClassID, ProgID: string); override;
  19.   public
  20.     { Public declarations }
  21.   end;
  22.  
  23. implementation
  24.  
  25. {$R *.DFM}
  26.  
  27. class procedure TCustomerData.UpdateRegistry(Register: Boolean; const ClassID, ProgID: string);
  28. begin
  29.   if Register then
  30.   begin
  31.     inherited UpdateRegistry(Register, ClassID, ProgID);
  32.     EnableSocketTransport(ClassID);
  33.     EnableWebTransport(ClassID);
  34.   end else
  35.   begin
  36.     DisableSocketTransport(ClassID);
  37.     DisableWebTransport(ClassID);
  38.     inherited UpdateRegistry(Register, ClassID, ProgID);
  39.   end;
  40. end;
  41.  
  42. initialization
  43.   TComponentFactory.Create(ComServer, TCustomerData,
  44.     Class_CustomerData, ciMultiInstance, tmApartment);
  45. end.
  46.